home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / SWI / source / lib / dld.pl < prev    next >
Encoding:
Text File  |  1992-05-26  |  564 b   |  31 lines
  1. /*  $Id: dld.pl,v 1.1.1.1 1992/05/26 11:51:35 jan Exp $
  2.  
  3.     Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  4.     jan@swi.psy.uva.nl
  5.  
  6.     Purpose: load dynamic linker
  7. */
  8.  
  9. :- module(dld,
  10.     [ dld_link/1
  11.     , dld_unlink/1
  12.     , dld_call/1      
  13.     , dld_list_undefined/0
  14.     , dld_function/2
  15.     , dld_initialise/1
  16.     ]).
  17.  
  18. load_dld :-
  19.     '$arch'(Mach, _),
  20.     '$home'(SwiHome),
  21.     concat_atom(['-L', SwiHome, '/library/', Mach], LibDir),
  22.     load_foreign(library(dld),
  23.                  dld_start,
  24.              LibDir,
  25.              '-ldld',
  26.              46000).
  27.  
  28. :- load_dld.
  29.  
  30. :- module_transparent dld_call/1.
  31.